home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Business Master (3rd Edition)
/
The Business Master (3rd Edition).iso
/
files
/
commadio
/
easupcis
/
xteupc1.xts
< prev
next >
Wrap
Text File
|
1989-09-09
|
4KB
|
118 lines
/*
Ease-Up V1.7 INCLUDE file #1 for CROSSTALK Mk.4 v1.1
Ease-Up
is Copyright (c) 1989 by
Simple Solutions, Inc.
All Rights Reserved
This file, XTEUPC1.XTS, and its companion file XTEUPC2.XTS are used
by the scripts generated by Ease-Up V1.7 and are required for the
proper operation of those scripts.
The files are 'include' files and are included into and compiled with
the Ease-Up generated scripts. Their location in the generated script
file is important, so if for some reason you decide to make any changes
to the generated code keep this in mind.
The XTALK4 Reference Manual states in its notes on the INCLUDE statement
that the XTPATH path is not searched for include files. I've found that
this is not the case, and source files on the XTPATH are included. In
any case, these files must be available to XTALK4 in order for the
generated scripts to compile. Keeping the generated scripts and the
include files together in the same subdirectory will take care of it.
You should refer to your XTALKK4 manuals for the details of how include
files are handled.
*/
/*
* some exceptions not handled
* explicitly in the 'watch'
* construct below
*
*/
track clear
track 1, 'not author'
track 2, 'unrecognized!'
track routine TRACKER
/*
* guarantee the protocol
* is CIS B
*
*/
if protocol <> 'CSERVEB' then {
protocol 'CSERVEB'
}
/*
* set host params
*
*/
databits 8
parity none
stopbits 1
timing sloppy
/*
* null answerback for CIS
*
*/
answbak_sav = answerback
answerback = ''
/*
* define the error window
* and hide it
*
*/
wn = freewin
window #wn,at 1,40,size 4,35,border 1,color 14,alert
hide #wn
/*
* make sure we're online
*
*/
if not online then {
EXCUSE_ME
exit
}
/*
* initialize vars
*
*/
err_num = 0
ctrl_u = chr(21)
/*
* lets get started...
* goto the forum
*
*/
W5R 'g ' + forum_name : ; forum_name initialized by
; generated code
/************************************************************************\
* *
* A bunch of stuff can happen between the 'go forum' and the time *
* an upload is started. The 'while' and 'watch' take care of the *
* nasty details for us. *
* *
\************************************************************************/
while online
watch for
case 'Messages!' : W5R ctrl_u
case 'Libraries!' : W5R ctrl_u
case 'Conference!' : W5R ctrl_u
case 'Libraries Available:' : W5R libnum : ...
jump UPLD
case 'Enter choice' : W5R ctrl_u + 'OP;UM;NO;S'
case space 'Forum !' : jump SET_LIB
'Press <CR>' : W5R ctrl_u
'closed for maint' : err_num = 11 : ...
jump ERROR_HDLR
'page is empty' : err_num = 12 : ...
jump ERROR_HDLR
case space 'MORE !' : W5R ctrl_u
quiet 15 seconds : W5R ctrl_u
endwatch
wend